home *** CD-ROM | disk | FTP | other *** search
/ Enter Special 5: Digital Photography / ENTER Special 05.iso / Grafika / Paint Shop Pro 8.0 / psp800ev.exe / Data1.cab / Preset_MagnifyingLens_Inner_ < prev    next >
Encoding:
Text File  |  2003-04-22  |  2.2 KB  |  66 lines
  1. from JascApp import *
  2.  
  3. def ScriptProperties():
  4.     return {
  5.         'Author': 'Kris Zaklika',
  6.         'Copyright': 'Copyright (C) 2002-2003, Jasc Software Inc., All Rights Reserved.',
  7.         'Description': 'The effect of an inner tube from a tire',
  8.         'Host': 'Paint Shop Pro',
  9.         'Host Version': '8.00'
  10.         }
  11.  
  12. def Preset_MagnifyingLens():
  13.     return {
  14.         'Bound': (0.17125,0.0616667,0.82375,0.931667), 
  15.         'Darkness': 7, 
  16.         'Defocus': 0, 
  17.         'Frame': {
  18.             'FrameColor': (16,16,16), 
  19.             'Material': App.Constants.LensFrameMaterial.BrightBronze, 
  20.             'Style': App.Constants.LensFrameShape.Circular, 
  21.             'Thickness': 21
  22.             }, 
  23.         'Illumination': {
  24.             'LightList': [{
  25.                 'LightColor': (255,255,255), 
  26.                 'LightDirection': (0.603912,0.274597,-0.748256), 
  27.                 'HighlightSize': 35
  28.                 },{
  29.                 'LightColor': (255,255,255), 
  30.                 'LightDirection': (0.0173503,0.0573503,-0.998203), 
  31.                 'HighlightSize': 0
  32.                 },{
  33.                 'LightColor': (90,90,90), 
  34.                 'LightDirection': (0.525949,-0.635503,0.565255), 
  35.                 'HighlightSize': 59
  36.                 },{
  37.                 'LightColor': (90,90,90), 
  38.                 'LightDirection': (-0.426677,0.443685,0.788093), 
  39.                 'HighlightSize': 56
  40.                 }], 
  41.             'MaxAmbience': 83, 
  42.             'MinAmbience': 26
  43.             }, 
  44.         'LensSurface': {
  45.             'EnvironmentMap': {
  46.                 'Active': App.Constants.Boolean.false
  47.                 }, 
  48.             'Gloss': 0, 
  49.             'Magnification': 2, 
  50.             'LensMaterial': {
  51.                 'Color': (255,255,255), 
  52.                 'Pattern': None, 
  53.                 'Gradient': None, 
  54.                 'Texture': None
  55.                 }, 
  56.             'LensOpacity': 11, 
  57.             'Refraction': 13, 
  58.             'ShapeType': App.Constants.LensShape.Spherical, 
  59.             'Shininess': 28
  60.             }
  61.         }
  62.  
  63. def Do(Environment):
  64.     App.Do( Environment, 'MagnifyingLens',         Preset_MagnifyingLens())
  65.  
  66.